home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 March / macformat-022.iso / 3D / Touch-3D™ Demo / Tutorial / 3D car < prev    next >
Encoding:
Text File  |  1994-10-21  |  8.5 KB  |  469 lines  |  [TEXT/CDP3]
  1. {Global Characteristics}
  2.  
  3. DrwSize(1,1);
  4. SetUnits(10000,1,0,25.4,'mm',' sq mm');
  5. GridLines(10);
  6. PenGrid(1);
  7. DoubLines(0);
  8. SetOrigin(0,0);
  9. Snap(TRUE,TRUE,TRUE);
  10. TextFont(20);
  11. TextSize(72);
  12. TextFace([]);
  13. TextSpace(2);
  14. TextJust(1);
  15. OpenPoly;
  16.  
  17. {End of Global Characteristics}
  18.  
  19.  
  20. {Record Format Entries}
  21.  
  22.  
  23. {End of Record Format Entries}
  24.  
  25. {Worksheet Entries}
  26.  
  27.  
  28. {End of Worksheet Entries}
  29. {Symbol Library Entries}
  30.  
  31.  
  32. {End of Symbol Library Entries}
  33.  
  34. {Layer Characteristics}
  35.  
  36. Layer('Layer-1');
  37. SetScale(25);
  38. ShowLayer;
  39. CopyMode(8);
  40. LFillFore(255);
  41. LFillBack(0);
  42. LPenFore(255);
  43. LPenBack(0);
  44.  
  45. Projection(0,0,6197.6,-3098.8,3098.8,3098.8,-3098.8);
  46. SetView(#-90° 0' 0",#0° 0' 0",#0° 0' 0",0,0,0);
  47.  
  48. {End of Layer Characteristics}
  49.  
  50. {Object Creation Code}
  51.  
  52. NameClass('None');
  53. ClosePoly;
  54. PenSize(1);
  55. PenPat(2);
  56. FillPat(1);
  57. FillBack(215);
  58. Poly3D(
  59. -455.703,-221.794,-439.169,
  60. -455.703,-232.881,-345.281,
  61. 565.354,-232.881,-345.281,
  62. 656.897,-221.794,-439.169
  63. );
  64. Poly3D(
  65. -455.703,-232.881,-345.281,
  66. -454.15,-277.23,81.765,
  67. 656.897,-271.316,-19.803,
  68. 565.354,-232.881,-345.281
  69. );
  70. Poly3D(
  71. -454.15,-277.23,81.765,
  72. -455.703,-253.074,293.888,
  73. 656.897,-257.759,244.474,
  74. 656.897,-271.316,-19.803
  75. );
  76. Poly3D(
  77. 136.946,-75.046,631.575,
  78. 193.532,2.759,665.723,
  79. 695.274,-185.509,295.111,
  80. 656.897,-257.759,244.474
  81. );
  82. Poly3D(
  83. 79.472,-52.591,674.265,
  84. 129.873,27.041,703.802,
  85. 193.532,2.759,665.723,
  86. 136.946,-75.046,631.575
  87. );
  88. Poly3D(
  89. -455.703,-253.074,293.888,
  90. -455.703,-44.741,686.022,
  91. 79.472,-52.591,674.265,
  92. 656.897,-257.759,244.474
  93. );
  94. Poly3D(
  95. -455.703,-221.794,-439.169,
  96. -455.703,-232.881,-345.281,
  97. 565.354,-232.881,-345.281,
  98. 656.897,-221.794,-439.169
  99. );
  100. Poly3D(
  101. 565.354,-232.881,-345.281,
  102. 656.897,-271.316,-19.803,
  103. 759.175,-265.854,-64.104,
  104. 656.897,-221.794,-439.169
  105. );
  106. Poly3D(
  107. -1033.128,-221.794,-439.169,
  108. -1033.128,-232.881,-345.281,
  109. -455.703,-232.881,-345.281,
  110. -455.703,-221.794,-439.169
  111. );
  112. Poly3D(
  113. -455.703,-232.881,-345.281,
  114. -1096.504,-260.968,-107.432,
  115. -1255.781,-273.854,175.581,
  116. -454.15,-277.23,81.765
  117. );
  118. Poly3D(
  119. -1096.504,-260.968,-107.432,
  120. -1738.163,-212.231,-34.94,
  121. -1738.163,-212.231,238.828,
  122. -1255.781,-273.854,175.581
  123. );
  124. Poly3D(
  125. -1033.128,-232.881,-345.281,
  126. -1096.504,-260.968,-107.432,
  127. -1096.504,-260.968,-107.432,
  128. -455.703,-232.881,-345.281
  129. );
  130. Poly3D(
  131. -1738.163,-212.231,-34.94,
  132. -1778.551,-179.989,-319.376,
  133. -1838.32,-174.898,-236.619,
  134. -1836.193,-184.527,-70.038
  135. );
  136. Poly3D(
  137. -1778.551,-179.989,-319.376,
  138. -1861.309,-104.282,-307.882,
  139. -1918.779,-94.653,-230.124,
  140. -1838.32,-174.898,-236.619
  141. );
  142. Poly3D(
  143. -1738.163,74.359,-34.94,
  144. -1778.551,74.359,-319.376,
  145. -1778.551,-179.989,-319.376,
  146. -1738.163,-212.231,-34.94
  147. );
  148. Poly3D(
  149. -1861.309,-104.282,-307.882,
  150. -1909.584,620.193,-300.985,
  151. -1958.642,620.193,-224.77,
  152. -1918.779,-94.653,-230.124
  153. );
  154. Poly3D(
  155. -1838.32,-174.898,-236.619,
  156. -1918.779,-94.653,-230.124,
  157. -1918.779,-96.793,-68.804,
  158. -1836.193,-184.527,-70.038
  159. );
  160. Poly3D(
  161. -1918.779,-94.653,-230.124,
  162. -1958.642,620.193,-224.77,
  163. -1956.825,620.193,-68.436,
  164. -1918.779,-96.793,-68.804
  165. );
  166. Poly3D(
  167. -1836.193,-184.527,-70.038,
  168. -1918.779,-96.793,-68.804,
  169. -1801.539,-97.863,-29.724,
  170. -1738.163,-212.231,-34.94
  171. );
  172. Poly3D(
  173. -1918.779,-96.793,-68.804,
  174. -1956.825,620.193,-68.436,
  175. -1845.437,620.193,-32.672,
  176. -1801.539,-97.863,-29.724
  177. );
  178. Poly3D(
  179. -1033.128,74.359,-345.281,
  180. -1096.504,74.359,-107.432,
  181. -1096.504,-260.968,-107.432,
  182. -1033.128,-232.881,-345.281
  183. );
  184. Poly3D(
  185. -1778.551,74.359,-319.376,
  186. -1738.163,74.359,-34.94,
  187. -1096.504,74.359,-107.432,
  188. -1033.128,74.359,-345.281
  189. );
  190. Poly3D(
  191. -1096.504,74.359,-107.432,
  192. -1738.163,74.359,-34.94,
  193. -1738.163,-212.231,-34.94,
  194. -1096.504,-260.968,-107.432
  195. );
  196. Poly3D(
  197. 1631.674,-159.74,-230.656,
  198. 1773.922,127.863,-239.217,
  199. 1700.76,128.773,-439.169,
  200. 1572.75,-144.937,-439.249
  201. );
  202. Poly3D(
  203. 1773.922,127.863,-239.217,
  204. 1816.725,318.665,-241.357,
  205. 1746.101,318.665,-439.169,
  206. 1700.76,128.773,-439.169
  207. );
  208. Poly3D(
  209. 1816.725,318.665,-241.357,
  210. 1844.546,620.193,-241.357,
  211. 1771.782,620.193,-439.169,
  212. 1746.101,318.665,-439.169
  213. );
  214. Poly3D(
  215. 1241.149,-259.854,-114.879,
  216. 1631.674,-159.74,-230.656,
  217. 1572.75,-144.937,-439.249,
  218. 1332.908,-221.794,-439.169
  219. );
  220. Poly3D(
  221. 759.175,74.359,-64.104,
  222. 1241.149,74.359,-114.879,
  223. 1332.908,74.359,-439.169,
  224. 656.897,74.359,-439.169
  225. );
  226. Poly3D(
  227. 1241.149,74.359,-114.879,
  228. 1241.149,-259.854,-114.879,
  229. 1332.908,-221.794,-439.169,
  230. 1332.908,74.359,-439.169
  231. );
  232. Poly3D(
  233. 759.175,-265.854,-64.104,
  234. 759.175,74.359,-64.104,
  235. 656.897,74.359,-439.169,
  236. 656.897,-221.794,-439.169
  237. );
  238. Poly3D(
  239. 1816.938,320.695,-124.275,
  240. 1843.664,620.107,-128.284,
  241. 1844.546,620.193,-241.357,
  242. 1816.725,318.665,-241.357
  243. );
  244. Poly3D(
  245. 1774.176,127.863,-121.603,
  246. 1816.938,320.695,-124.275,
  247. 1816.725,318.665,-241.357,
  248. 1773.922,127.863,-239.217
  249. );
  250. Poly3D(
  251. 1631.779,-207.97,-105.595,
  252. 1774.176,127.863,-121.603,
  253. 1773.922,127.863,-239.217,
  254. 1631.674,-159.74,-230.656
  255. );
  256. Poly3D(
  257. 1241.046,-264.854,-71.151,
  258. 1631.779,-207.97,-105.595,
  259. 1631.674,-159.74,-230.656,
  260. 1241.149,-259.854,-114.879
  261. );
  262. Poly3D(
  263. 656.897,-271.316,-19.803,
  264. 1241.046,-264.854,-71.151,
  265. 1241.149,-259.854,-114.879,
  266. 759.175,-265.854,-64.104
  267. );
  268. Poly3D(
  269. 759.175,-265.854,-64.104,
  270. 1241.149,-259.854,-114.879,
  271. 1241.149,74.359,-114.879,
  272. 759.175,74.359,-64.104
  273. );
  274. Poly3D(
  275. 1719.386,253.711,4.011,
  276. 1751.458,620.193,2.675,
  277. 1843.664,620.107,-128.284,
  278. 1816.938,320.695,-124.275
  279. );
  280. Poly3D(
  281. 1621.823,-12.898,20.621,
  282. 1719.386,253.711,4.011,
  283. 1816.938,320.695,-124.275,
  284. 1774.176,127.863,-121.603
  285. );
  286. Poly3D(
  287. 1499.816,-172.654,48.133,
  288. 1621.823,-12.898,20.621,
  289. 1774.176,127.863,-121.603,
  290. 1631.779,-207.97,-105.595
  291. );
  292. Poly3D(
  293. 909.809,74.359,268.695,
  294. 950.363,620.193,287.905,
  295. 1751.458,620.193,2.675,
  296. 1719.386,253.711,4.011
  297. );
  298. Poly3D(
  299. 695.274,-185.509,295.111,
  300. 909.809,74.359,268.695,
  301. 1719.386,253.711,4.011,
  302. 1621.823,-12.898,20.621
  303. );
  304. Poly3D(
  305. 656.897,-257.759,244.474,
  306. 695.274,-185.509,295.111,
  307. 1621.823,-12.898,20.621,
  308. 1499.816,-172.654,48.133
  309. );
  310. Poly3D(
  311. -1738.163,-212.231,238.828,
  312. -1801.539,-97.863,241.537,
  313. -1737.252,-87.538,368.692,
  314. -1653.417,-166.031,368.692
  315. );
  316. Poly3D(
  317. -1801.539,-97.863,241.537,
  318. -1845.392,620.193,244.23,
  319. -1781.675,619.888,368.903,
  320. -1737.252,-87.538,368.692
  321. );
  322. Poly3D(
  323. 656.897,-257.759,244.474,
  324. 1499.816,-172.654,48.133,
  325. 1631.779,-207.97,-105.595,
  326. 656.897,-271.316,-19.803
  327. );
  328. Poly3D(
  329. -454.15,-277.23,81.765,
  330. -1255.781,-273.854,175.581,
  331. -1254.548,-229.546,370.797,
  332. -455.703,-253.074,293.888
  333. );
  334. Poly3D(
  335. -1255.781,-273.854,175.581,
  336. -1738.163,-212.231,238.828,
  337. -1653.417,-166.031,368.692,
  338. -1254.548,-229.546,370.797
  339. );
  340. Poly3D(
  341. -455.703,-253.074,293.888,
  342. -1254.548,-229.546,370.797,
  343. -1026.446,-60.441,684.71,
  344. -455.703,-44.741,686.022
  345. );
  346. Poly3D(
  347. -1254.548,-229.546,370.797,
  348. -1653.417,-166.031,368.692,
  349. -1353.583,-23.427,648.213,
  350. -1026.446,-60.441,684.71
  351. );
  352. Poly3D(
  353. -1737.252,-87.538,368.692,
  354. -1781.675,619.888,368.903,
  355. -1453.24,620.193,665.544,
  356. -1412.077,48.297,656.878
  357. );
  358. Poly3D(
  359. -1653.417,-166.031,368.692,
  360. -1737.252,-87.538,368.692,
  361. -1412.077,48.297,656.878,
  362. -1353.583,-23.427,648.213
  363. );
  364. Poly3D(
  365. 129.873,27.041,703.802,
  366. 193.532,221.072,721.702,
  367. 264.264,211.418,693.723,
  368. 193.532,2.759,665.723
  369. );
  370. Poly3D(
  371. 193.532,221.072,721.702,
  372. 234.391,620.193,729.467,
  373. 303.436,620.193,704.723,
  374. 264.264,211.418,693.723
  375. );
  376. Poly3D(
  377. -1353.583,-23.427,648.213,
  378. -1412.077,48.297,656.878,
  379. -1217.095,93.925,724.039,
  380. -1191.098,7.974,702.374
  381. );
  382. Poly3D(
  383. -1353.583,-23.427,648.213,
  384. -1191.098,7.974,702.374,
  385. -989.616,23.675,717.54,
  386. -1026.446,-60.441,684.71
  387. );
  388. Poly3D(
  389. -1412.077,48.297,656.878,
  390. -1453.24,620.193,665.544,
  391. -1245.259,619.966,737.038,
  392. -1217.095,93.925,724.039
  393. );
  394. Poly3D(
  395. -455.703,-44.741,686.022,
  396. -455.703,39.375,722.108,
  397. 129.873,27.041,703.802,
  398. 79.472,-52.591,674.265
  399. );
  400. Poly3D(
  401. -1026.446,-60.441,684.71,
  402. -989.616,23.675,717.54,
  403. -455.703,39.375,722.108,
  404. -455.703,-44.741,686.022
  405. );
  406. Poly3D(
  407. -1191.098,7.974,702.374,
  408. -1217.095,93.925,724.039,
  409. -991.782,216.146,737.038,
  410. -989.616,23.675,717.54
  411. );
  412. Poly3D(
  413. -455.703,39.375,722.108,
  414. -455.703,230.666,747.234,
  415. 193.532,221.072,721.702,
  416. 129.873,27.041,703.802
  417. );
  418. Poly3D(
  419. -989.616,23.675,717.54,
  420. -991.782,216.146,737.038,
  421. -455.703,230.666,747.234,
  422. -455.703,39.375,722.108
  423. );
  424. Poly3D(
  425. -455.703,230.666,747.234,
  426. -456.116,620.193,766.976,
  427. 234.391,620.193,729.467,
  428. 193.532,221.072,721.702
  429. );
  430. Poly3D(
  431. -1217.095,93.925,724.039,
  432. -1245.259,619.966,737.038,
  433. -993.949,620.451,754.37,
  434. -991.782,216.146,737.038
  435. );
  436. Poly3D(
  437. -991.782,216.146,737.038,
  438. -993.949,620.451,754.37,
  439. -456.116,620.193,766.976,
  440. -455.703,230.666,747.234
  441. );
  442. Poly3D(
  443. 264.264,211.418,693.723,
  444. 303.436,620.193,704.723,
  445. 950.363,620.193,287.905,
  446. 909.809,74.359,268.695
  447. );
  448. Poly3D(
  449. 193.532,2.759,665.723,
  450. 264.264,211.418,693.723,
  451. 909.809,74.359,268.695,
  452. 695.274,-185.509,295.111
  453. );
  454. Poly3D(
  455. -1738.163,-212.231,-34.94,
  456. -1801.539,-97.863,-29.724,
  457. -1801.539,-97.863,241.537,
  458. -1738.163,-212.231,238.828
  459. );
  460. Poly3D(
  461. -1801.539,-97.863,-29.724,
  462. -1845.437,620.193,-32.672,
  463. -1845.392,620.193,244.23,
  464. -1801.539,-97.863,241.537
  465. );
  466. SetZVals(0,0);
  467.  
  468. {End of Creation Code}
  469.